MacWorld 2000 January

home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 January / Macworld (2000-01).dmg / System Utilities / Apple Utilities⁄Updates / MacsBug 6.6.sea / MacsBug 6.6 / Building dcmds / Pascal Samples / Echo.p next >
MacBinary | 1999-10-20 | 3.8 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Echo.p
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Oct 20 13:00:00 1999, modified Wed Oct 20 13:00:00 1999, creator 'MPS ', type ASCII, 3073 bytes "Echo.p" , at 0xc81 428 bytes resource	default (weak)
`99%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-4K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 45 63 68 6f 2e 70 | 00 00 00 00 00 00 00 00 |..Echo.p|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0c 01 00 | 00 01 ac b4 33 a5 90 b4 |........|....3...|
|00000060| 33 a5 90 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |3.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 02 c1 00 00 |........|........|
|00000080| 7b 0d 0d 09 46 69 6c 65 | 3a 09 09 45 63 68 6f 2e |{...File|:..Echo.|
|00000090| 70 0d 0d 09 43 6f 6e 74 | 61 69 6e 73 3a 09 50 61 |p...Cont|ains:.Pa|
|000000a0| 73 63 61 6c 20 73 6f 75 | 72 63 65 20 66 6f 72 20 |scal sou|rce for |
|000000b0| 74 68 65 20 45 63 68 6f | 20 64 63 6d 64 0d 0d 09 |the Echo| dcmd...|
|000000c0| 57 72 69 74 74 65 6e 20 | 62 79 3a 09 4a 4d 33 20 |Written |by:.JM3 |
|000000d0| 3d 20 4a 69 6d 20 4d 75 | 72 70 68 79 0d 0d 09 43 |= Jim Mu|rphy...C|
|000000e0| 6f 70 79 72 69 67 68 74 | 3a 09 a9 20 31 39 39 34 |opyright|:.. 1994|
|000000f0| 20 62 79 20 41 70 70 6c | 65 20 43 6f 6d 70 75 74 | by Appl|e Comput|
|00000100| 65 72 2c 20 49 6e 63 2e | 2c 20 41 6c 6c 20 52 69 |er, Inc.|, All Ri|
|00000110| 67 68 74 73 20 52 65 73 | 65 72 76 65 64 2e 0d 0d |ghts Res|erved...|
|00000120| 09 43 68 61 6e 67 65 20 | 48 69 73 74 6f 72 79 20 |.Change |History |
|00000130| 28 6d 6f 73 74 20 72 65 | 63 65 6e 74 20 66 69 72 |(most re|cent fir|
|00000140| 73 74 29 3a 0d 0d 09 09 | 20 3c 32 3e 20 20 20 31 |st):....| <2>   1|
|00000150| 34 2d 44 65 63 2d 39 34 | 09 4a 4d 33 09 09 55 70 |4-Dec-94|.JM3..Up|
|00000160| 64 61 74 65 64 20 74 6f | 20 73 75 70 70 6f 72 74 |dated to| support|
|00000170| 20 74 68 65 20 6e 65 77 | 20 66 6f 72 6d 61 74 20 | the new| format |
|00000180| 33 20 64 63 6d 64 20 72 | 65 71 75 69 72 65 6d 65 |3 dcmd r|equireme|
|00000190| 6e 74 73 2e 0d 0d 7d 0d | 0d 55 4e 49 54 20 45 63 |nts...}.|.UNIT Ec|
|000001a0| 68 6f 3b 0d 0d 28 2a 20 | 54 68 65 20 66 6f 6c 6c |ho;..(* |The foll|
|000001b0| 6f 77 69 6e 67 20 4d 50 | 57 20 63 6f 6d 6d 61 6e |owing MP|W comman|
|000001c0| 64 73 20 77 69 6c 6c 20 | 62 75 69 6c 64 20 74 68 |ds will |build th|
|000001d0| 65 20 64 63 6d 64 20 61 | 6e 64 20 63 6f 70 79 20 |e dcmd a|nd copy |
|000001e0| 69 74 20 74 6f 20 74 68 | 65 0d 20 20 20 22 44 65 |it to th|e.   "De|
|000001f0| 62 75 67 67 65 72 20 50 | 72 65 66 73 22 20 66 69 |bugger P|refs" fi|
|00000200| 6c 65 20 69 6e 20 74 68 | 65 20 53 79 73 74 65 6d |le in th|e System|
|00000210| 20 66 6f 6c 64 65 72 2e | 20 54 68 65 20 64 63 6d | folder.| The dcm|
|00000220| 64 27 73 20 6e 61 6d 65 | 20 69 6e 0d 09 09 20 4d |d's name| in... M|
|00000230| 61 63 73 42 75 67 20 77 | 69 6c 6c 20 62 65 20 74 |acsBug w|ill be t|
|00000240| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 66 |he name |of the f|
|00000250| 69 6c 65 20 62 75 69 6c | 74 20 62 79 20 74 68 65 |ile buil|t by the|
|00000260| 20 4c 69 6e 6b 65 72 2e | 0d 0d 09 20 20 20 20 50 | Linker.|...    P|
|00000270| 61 73 63 61 6c 20 45 63 | 68 6f 2e 70 0d 09 20 20 |ascal Ec|ho.p..  |
|00000280| 20 20 4c 69 6e 6b 20 64 | 63 6d 64 47 6c 75 65 2e |  Link d|cmdGlue.|
|00000290| 61 2e 6f 20 45 63 68 6f | 2e 70 2e 6f 20 7b 4c 69 |a.o Echo|.p.o {Li|
|000002a0| 62 72 61 72 69 65 73 7d | 52 75 6e 74 69 6d 65 2e |braries}|Runtime.|
|000002b0| 6f 20 7b 50 4c 69 62 72 | 61 72 69 65 73 7d 50 61 |o {PLibr|aries}Pa|
|000002c0| 73 4c 69 62 2e 6f 20 2d | 6f 20 45 63 68 6f 0d 09 |sLib.o -|o Echo..|
|000002d0| 20 20 20 20 42 75 69 6c | 64 44 63 6d 64 20 45 63 |    Buil|dDcmd Ec|
|000002e0| 68 6f 20 31 30 31 0d 09 | 09 09 09 09 45 63 68 6f |ho 101..|....Echo|
|000002f0| 20 27 69 6e 63 6c 75 64 | 65 20 22 45 63 68 6f 22 | 'includ|e "Echo"|
|00000300| 3b 27 09 09 09 7c 09 09 | 09 52 65 7a 20 2d 61 20 |;'...|..|.Rez -a |
|00000310| 2d 6f 20 22 7b 73 79 73 | 74 65 6d 46 6f 6c 64 65 |-o "{sys|temFolde|
|00000320| 72 7d 44 65 62 75 67 67 | 65 72 20 50 72 65 66 73 |r}Debugg|er Prefs|
|00000330| 22 0d 2a 29 0d 0d 7b 24 | 52 2d 7d 0d 0d 49 4e 54 |".*)..{$|R-}..INT|
|00000340| 45 52 46 41 43 45 0d 0d | 09 09 55 53 45 53 20 4d |ERFACE..|..USES M|
|00000350| 65 6d 54 79 70 65 73 2c | 20 64 63 6d 64 3b 0d 09 |emTypes,| dcmd;..|
|00000360| 09 0d 20 20 7b 20 50 75 | 62 6c 69 63 20 64 65 63 |..  { Pu|blic dec|
|00000370| 6c 61 72 61 74 69 6f 6e | 20 66 6f 72 20 64 63 6d |laration| for dcm|
|00000380| 64 47 6c 75 65 2e 20 4d | 75 73 74 20 62 65 20 69 |dGlue. M|ust be i|
|00000390| 6e 20 65 76 65 72 79 20 | 64 63 6d 64 2e 20 54 68 |n every |dcmd. Th|
|000003a0| 65 20 6e 61 6d 65 20 63 | 61 6e 6e 6f 74 20 62 65 |e name c|annot be|
|000003b0| 20 63 68 61 6e 67 65 64 | 2e 20 7d 0d 09 09 50 52 | changed|. }...PR|
|000003c0| 4f 43 45 44 55 52 45 20 | 43 6f 6d 6d 61 6e 64 45 |OCEDURE |CommandE|
|000003d0| 6e 74 72 79 20 28 70 61 | 72 61 6d 50 74 72 3a 20 |ntry (pa|ramPtr: |
|000003e0| 64 63 6d 64 42 6c 6f 63 | 6b 50 74 72 29 3b 0d 0d |dcmdBloc|kPtr);..|
|000003f0| 0d 49 4d 50 4c 45 4d 45 | 4e 54 41 54 49 4f 4e 0d |.IMPLEME|NTATION.|
|00000400| 0d 43 4f 4e 53 54 20 43 | 52 20 3d 20 24 30 44 3b |.CONST C|R = $0D;|
|00000410| 0d 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 4e 75 6d |...PROCE|DURE Num|
|00000420| 62 65 72 54 6f 48 65 78 | 20 28 6e 75 6d 62 65 72 |berToHex| (number|
|00000430| 3a 20 4c 4f 4e 47 49 4e | 54 3b 20 56 41 52 20 68 |: LONGIN|T; VAR h|
|00000440| 65 78 3a 20 53 74 72 32 | 35 35 29 3b 0d 56 41 52 |ex: Str2|55);.VAR|
|00000450| 20 64 69 67 69 74 73 3a | 20 53 74 72 32 35 35 3b | digits:| Str255;|
|00000460| 0d 20 20 20 20 6e 3a 20 | 49 4e 54 45 47 45 52 3b |.    n: |INTEGER;|
|00000470| 0d 42 45 47 49 4e 0d 09 | 64 69 67 69 74 73 20 3a |.BEGIN..|digits :|
|00000480| 3d 20 27 30 31 32 33 34 | 35 36 37 38 39 41 42 43 |= '01234|56789ABC|
|00000490| 44 45 46 27 3b 0d 09 68 | 65 78 20 3a 3d 20 27 30 |DEF';..h|ex := '0|
|000004a0| 30 30 30 30 30 30 30 27 | 3b 0d 09 46 4f 52 20 6e |0000000'|;..FOR n|
|000004b0| 20 3a 3d 20 38 20 44 4f | 57 4e 54 4f 20 31 20 44 | := 8 DO|WNTO 1 D|
|000004c0| 4f 0d 09 09 42 45 47 49 | 4e 0d 09 09 68 65 78 5b |O...BEGI|N...hex[|
|000004d0| 6e 5d 20 3a 3d 20 64 69 | 67 69 74 73 5b 31 20 2b |n] := di|gits[1 +|
|000004e0| 20 28 6e 75 6d 62 65 72 | 20 4d 4f 44 20 31 36 29 | (number| MOD 16)|
|000004f0| 5d 3b 0d 09 09 6e 75 6d | 62 65 72 20 3a 3d 20 6e |];...num|ber := n|
|00000500| 75 6d 62 65 72 20 44 49 | 56 20 31 36 3b 0d 09 09 |umber DI|V 16;...|
|00000510| 45 4e 44 3b 0d 45 4e 44 | 3b 0d 0d 0d 50 52 4f 43 |END;.END|;...PROC|
|00000520| 45 44 55 52 45 20 43 6f | 6d 6d 61 6e 64 45 6e 74 |EDURE Co|mmandEnt|
|00000530| 72 79 20 28 70 61 72 61 | 6d 50 74 72 3a 20 44 43 |ry (para|mPtr: DC|
|00000540| 6d 64 42 6c 6f 63 6b 50 | 74 72 29 3b 0d 56 41 52 |mdBlockP|tr);.VAR|
|00000550| 20 70 6f 73 3a 20 20 20 | 49 4e 54 45 47 45 52 3b | pos:   |INTEGER;|
|00000560| 0d 20 20 20 20 63 68 3a | 20 20 20 20 43 48 41 52 |.    ch:|    CHAR|
|00000570| 3b 0d 09 09 09 09 76 61 | 6c 75 65 3a 20 4c 4f 4e |;.....va|lue: LON|
|00000580| 47 49 4e 54 3b 0d 09 09 | 09 09 6f 6b 3a 20 20 20 |GINT;...|..ok:   |
|00000590| 20 42 4f 4f 4c 45 41 4e | 3b 0d 09 09 09 09 73 74 | BOOLEAN|;.....st|
|000005a0| 72 3a 20 20 20 53 74 72 | 32 35 35 3b 0d 42 45 47 |r:   Str|255;.BEG|
|000005b0| 49 4e 0d 09 49 46 20 70 | 61 72 61 6d 50 74 72 5e |IN..IF p|aramPtr^|
|000005c0| 2e 72 65 71 75 65 73 74 | 20 3d 20 64 63 6d 64 49 |.request| = dcmdI|
|000005d0| 6e 69 74 20 54 48 45 4e | 0d 20 20 09 09 42 45 47 |nit THEN|.  ..BEG|
|000005e0| 49 4e 20 7b 20 54 68 65 | 20 64 63 6d 64 20 67 65 |IN { The| dcmd ge|
|000005f0| 74 73 20 63 61 6c 6c 65 | 64 20 6f 6e 63 65 20 77 |ts calle|d once w|
|00000600| 68 65 6e 20 6c 6f 61 64 | 65 64 20 74 6f 20 69 6e |hen load|ed to in|
|00000610| 69 74 20 69 74 73 65 6c | 66 20 7d 0d 09 09 45 4e |it itsel|f }...EN|
|00000620| 44 0d 09 45 4c 53 45 0d | 09 49 46 20 70 61 72 61 |D..ELSE.|.IF para|
|00000630| 6d 50 74 72 5e 2e 72 65 | 71 75 65 73 74 20 3d 20 |mPtr^.re|quest = |
|00000640| 64 63 6d 64 44 6f 49 74 | 20 54 48 45 4e 0d 09 09 |dcmdDoIt| THEN...|
|00000650| 42 45 47 49 4e 20 7b 20 | 44 6f 20 74 68 65 20 63 |BEGIN { |Do the c|
|00000660| 6f 6d 6d 61 6e 64 27 73 | 20 6e 6f 72 6d 61 6c 20 |ommand's| normal |
|00000670| 66 75 6e 63 74 69 6f 6e | 20 7d 0d 09 09 64 63 6d |function| }...dcm|
|00000680| 64 44 72 61 77 4c 69 6e | 65 20 28 27 45 63 68 6f |dDrawLin|e ('Echo|
|00000690| 69 6e 67 20 70 61 72 61 | 6d 65 74 65 72 73 27 29 |ing para|meters')|
|000006a0| 3b 0d 0d 09 09 52 45 50 | 45 41 54 0d 09 09 09 7b |;....REP|EAT....{|
|000006b0| 20 53 61 76 65 20 74 68 | 65 20 70 6f 73 69 74 69 | Save th|e positi|
|000006c0| 6f 6e 20 73 6f 20 77 65 | 20 63 61 6e 20 72 65 77 |on so we| can rew|
|000006d0| 69 6e 64 20 69 66 20 77 | 65 20 67 65 74 20 61 6e |ind if w|e get an|
|000006e0| 20 65 72 72 6f 72 20 7d | 0d 09 09 09 70 6f 73 20 | error }|....pos |
|000006f0| 3a 3d 20 64 63 6d 64 47 | 65 74 50 6f 73 69 74 69 |:= dcmdG|etPositi|
|00000700| 6f 6e 3b 0d 09 09 09 63 | 68 20 20 3a 3d 20 64 63 |on;....c|h  := dc|
|00000710| 6d 64 50 65 65 6b 41 74 | 4e 65 78 74 43 68 61 72 |mdPeekAt|NextChar|
|00000720| 3b 0d 09 09 09 49 46 20 | 63 68 20 49 4e 20 5b 27 |;....IF |ch IN ['|
|00000730| 41 27 2e 2e 27 5a 27 2c | 20 27 61 27 2e 2e 27 7a |A'..'Z',| 'a'..'z|
|00000740| 27 5d 20 54 48 45 4e 0d | 09 09 09 09 42 45 47 49 |'] THEN.|....BEGI|
|00000750| 4e 20 7b 20 47 65 74 20 | 74 68 65 20 70 61 72 61 |N { Get |the para|
|00000760| 6d 65 74 65 72 20 61 73 | 20 61 20 74 65 78 74 20 |meter as| a text |
|00000770| 73 74 72 69 6e 67 20 7d | 0d 09 09 09 09 63 68 20 |string }|.....ch |
|00000780| 3a 3d 20 64 63 6d 64 47 | 65 74 4e 65 78 74 50 61 |:= dcmdG|etNextPa|
|00000790| 72 61 6d 65 74 65 72 20 | 28 73 74 72 29 3b 0d 09 |rameter |(str);..|
|000007a0| 09 09 09 64 63 6d 64 44 | 72 61 77 4c 69 6e 65 20 |...dcmdD|rawLine |
|000007b0| 28 73 74 72 29 3b 0d 09 | 09 09 09 45 4e 44 0d 09 |(str);..|...END..|
|000007c0| 09 09 45 4c 53 45 0d 09 | 09 09 09 42 45 47 49 4e |..ELSE..|...BEGIN|
|000007d0| 20 7b 20 47 65 74 20 74 | 68 65 20 70 61 72 61 6d | { Get t|he param|
|000007e0| 65 74 65 72 20 61 73 20 | 61 20 33 32 20 62 69 74 |eter as |a 32 bit|
|000007f0| 20 76 61 6c 75 65 20 7d | 0d 09 09 09 09 09 63 68 | value }|......ch|
|00000800| 20 3a 3d 20 64 63 6d 64 | 47 65 74 4e 65 78 74 45 | := dcmd|GetNextE|
|00000810| 78 70 72 65 73 73 69 6f | 6e 20 28 76 61 6c 75 65 |xpressio|n (value|
|00000820| 2c 20 6f 6b 29 3b 0d 09 | 09 09 09 09 49 46 20 6f |, ok);..|....IF o|
|00000830| 6b 20 54 48 45 4e 0d 09 | 09 09 09 09 09 42 45 47 |k THEN..|.....BEG|
|00000840| 49 4e 20 7b 20 54 68 65 | 20 65 78 70 72 65 73 73 |IN { The| express|
|00000850| 69 6f 6e 20 77 61 73 20 | 70 61 72 73 65 64 20 63 |ion was |parsed c|
|00000860| 6f 72 72 65 63 74 6c 79 | 20 7d 0d 09 09 09 09 09 |orrectly| }......|
|00000870| 09 4e 75 6d 62 65 72 54 | 6f 48 65 78 20 20 28 76 |.NumberT|oHex  (v|
|00000880| 61 6c 75 65 2c 20 73 74 | 72 29 3b 0d 09 09 09 09 |alue, st|r);.....|
|00000890| 09 09 64 63 6d 64 44 72 | 61 77 4c 69 6e 65 20 28 |..dcmdDr|awLine (|
|000008a0| 73 74 72 29 3b 0d 09 09 | 09 09 09 09 45 4e 44 0d |str);...|....END.|
|000008b0| 09 09 09 09 09 45 4c 53 | 45 0d 09 09 09 09 09 09 |.....ELS|E.......|
|000008c0| 42 45 47 49 4e 20 7b 20 | 54 68 65 20 65 78 70 72 |BEGIN { |The expr|
|000008d0| 65 73 73 69 6f 6e 20 63 | 6f 6e 74 61 69 6e 65 64 |ession c|ontained|
|000008e0| 20 61 6e 20 65 72 72 6f | 72 2e 20 47 65 74 20 69 | an erro|r. Get i|
|000008f0| 74 20 61 73 20 61 20 73 | 74 72 69 6e 67 20 7d 0d |t as a s|tring }.|
|00000900| 09 09 09 09 09 09 64 63 | 6d 64 53 65 74 50 6f 73 |......dc|mdSetPos|
|00000910| 69 74 69 6f 6e 20 28 70 | 6f 73 29 3b 0d 09 09 09 |ition (p|os);....|
|00000920| 09 09 09 63 68 20 3a 3d | 20 64 63 6d 64 47 65 74 |...ch :=| dcmdGet|
|00000930| 4e 65 78 74 50 61 72 61 | 6d 65 74 65 72 20 28 73 |NextPara|meter (s|
|00000940| 74 72 29 3b 0d 09 09 09 | 09 09 09 64 63 6d 64 44 |tr);....|...dcmdD|
|00000950| 72 61 77 4c 69 6e 65 20 | 28 73 74 72 29 3b 0d 09 |rawLine |(str);..|
|00000960| 09 09 09 09 09 45 4e 44 | 3b 0d 09 09 09 09 45 4e |.....END|;.....EN|
|00000970| 44 3b 0d 09 09 55 4e 54 | 49 4c 20 63 68 20 3d 20 |D;...UNT|IL ch = |
|00000980| 43 48 52 28 43 52 29 3b | 0d 09 09 45 4e 44 0d 09 |CHR(CR);|...END..|
|00000990| 45 4c 53 45 20 49 46 20 | 70 61 72 61 6d 50 74 72 |ELSE IF |paramPtr|
|000009a0| 5e 2e 72 65 71 75 65 73 | 74 20 3d 20 64 63 6d 64 |^.reques|t = dcmd|
|000009b0| 48 65 6c 70 20 54 48 45 | 4e 20 7b 20 44 69 73 70 |Help THE|N { Disp|
|000009c0| 6c 61 79 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 27 |lay the |command'|
|000009d0| 73 20 68 65 6c 70 20 69 | 6e 66 6f 72 6d 61 74 69 |s help i|nformati|
|000009e0| 6f 6e 20 7d 0d 09 09 42 | 45 47 49 4e 0d 09 09 09 |on }...B|EGIN....|
|000009f0| 64 63 6d 64 44 72 61 77 | 4c 69 6e 65 20 28 27 45 |dcmdDraw|Line ('E|
|00000a00| 63 68 6f 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 |cho the |command |
|00000a10| 6c 69 6e 65 20 70 61 72 | 61 6d 65 74 65 72 73 2e |line par|ameters.|
|00000a20| 27 29 3b 0d 09 09 45 4e | 44 0d 09 45 4c 53 45 20 |');...EN|D..ELSE |
|00000a30| 49 46 20 70 61 72 61 6d | 50 74 72 5e 2e 72 65 71 |IF param|Ptr^.req|
|00000a40| 75 65 73 74 20 3d 20 64 | 63 6d 64 47 65 74 49 6e |uest = d|cmdGetIn|
|00000a50| 66 6f 20 54 48 45 4e 0d | 09 09 42 45 47 49 4e 20 |fo THEN.|..BEGIN |
|00000a60| 7b 20 52 65 74 75 72 6e | 20 74 68 65 20 63 6f 6d |{ Return| the com|
|00000a70| 6d 61 6e 64 27 73 20 75 | 73 61 67 65 20 69 6e 66 |mand's u|sage inf|
|00000a80| 6f 72 6d 61 74 69 6f 6e | 20 61 6e 64 20 76 65 72 |ormation| and ver|
|00000a90| 73 69 6f 6e 20 73 6f 20 | 4d 61 63 73 42 75 67 20 |sion so |MacsBug |
|00000aa0| 63 61 6e 20 64 72 61 77 | 20 74 68 65 6d 20 7d 0d |can draw| them }.|
|00000ab0| 09 09 47 65 74 49 6e 66 | 6f 52 65 71 75 65 73 74 |..GetInf|oRequest|
|00000ac0| 42 6c 6f 63 6b 50 74 72 | 28 70 61 72 61 6d 50 74 |BlockPtr|(paramPt|
|00000ad0| 72 5e 2e 72 65 71 75 65 | 73 74 49 4f 42 6c 6f 63 |r^.reque|stIOBloc|
|00000ae0| 6b 29 5e 2e 75 73 61 67 | 65 53 74 72 20 3a 3d 20 |k)^.usag|eStr := |
|00000af0| 27 5b 70 61 72 61 6d 73 | 2e 2e 2e 5d 27 3b 0d 0d |'[params|...]';..|
|00000b00| 09 09 7b 20 53 65 74 20 | 74 68 65 20 76 65 72 73 |..{ Set |the vers|
|00000b10| 69 6f 6e 20 74 6f 20 33 | 2e 30 20 66 69 6e 61 6c |ion to 3|.0 final|
|00000b20| 2e 20 7d 0d 0d 09 09 47 | 65 74 49 6e 66 6f 52 65 |. }....G|etInfoRe|
|00000b30| 71 75 65 73 74 42 6c 6f | 63 6b 50 74 72 28 70 61 |questBlo|ckPtr(pa|
|00000b40| 72 61 6d 50 74 72 5e 2e | 72 65 71 75 65 73 74 49 |ramPtr^.|requestI|
|00000b50| 4f 42 6c 6f 63 6b 29 5e | 2e 64 63 6d 64 56 65 72 |OBlock)^|.dcmdVer|
|00000b60| 73 69 6f 6e 2e 6d 61 6a | 6f 72 52 65 76 20 3a 3d |sion.maj|orRev :=|
|00000b70| 20 24 30 33 3b 0d 09 09 | 47 65 74 49 6e 66 6f 52 | $03;...|GetInfoR|
|00000b80| 65 71 75 65 73 74 42 6c | 6f 63 6b 50 74 72 28 70 |equestBl|ockPtr(p|
|00000b90| 61 72 61 6d 50 74 72 5e | 2e 72 65 71 75 65 73 74 |aramPtr^|.request|
|00000ba0| 49 4f 42 6c 6f 63 6b 29 | 5e 2e 64 63 6d 64 56 65 |IOBlock)|^.dcmdVe|
|00000bb0| 72 73 69 6f 6e 2e 6d 69 | 6e 6f 72 41 6e 64 42 75 |rsion.mi|norAndBu|
|00000bc0| 67 52 65 76 20 3a 3d 20 | 24 30 30 3b 0d 09 09 47 |gRev := |$00;...G|
|00000bd0| 65 74 49 6e 66 6f 52 65 | 71 75 65 73 74 42 6c 6f |etInfoRe|questBlo|
|00000be0| 63 6b 50 74 72 28 70 61 | 72 61 6d 50 74 72 5e 2e |ckPtr(pa|ramPtr^.|
|00000bf0| 72 65 71 75 65 73 74 49 | 4f 42 6c 6f 63 6b 29 5e |requestI|OBlock)^|
|00000c00| 2e 64 63 6d 64 56 65 72 | 73 69 6f 6e 2e 73 74 61 |.dcmdVer|sion.sta|
|00000c10| 67 65 20 3a 3d 20 24 38 | 30 3b 0d 09 09 47 65 74 |ge := $8|0;...Get|
|00000c20| 49 6e 66 6f 52 65 71 75 | 65 73 74 42 6c 6f 63 6b |InfoRequ|estBlock|
|00000c30| 50 74 72 28 70 61 72 61 | 6d 50 74 72 5e 2e 72 65 |Ptr(para|mPtr^.re|
|00000c40| 71 75 65 73 74 49 4f 42 | 6c 6f 63 6b 29 5e 2e 64 |questIOB|lock)^.d|
|00000c50| 63 6d 64 56 65 72 73 69 | 6f 6e 2e 6e 6f 6e 52 65 |cmdVersi|on.nonRe|
|00000c60| 6c 52 65 76 20 3a 3d 20 | 24 30 30 3b 09 09 0d 09 |lRev := |$00;....|
|00000c70| 09 45 4e 44 3b 0d 45 4e | 44 3b 0d 0d 45 4e 44 2e |.END;.EN|D;..END.|
|00000c80| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 01 00 00 00 01 66 | 00 00 00 66 00 00 00 46 |.......f|...f...F|
|00000d10| 50 49 28 20 4f 54 52 65 | 73 75 6c 74 20 29 0d 4f |PI( OTRe|sult ).O|
|00000d20| 54 46 72 65 65 09 09 09 | 09 09 09 09 28 76 6f 69 |TFree...|....(voi|
|00000d30| 06 45 63 68 6f 2e 70 61 | 72 79 20 49 74 65 6d 73 |.Echo.pa|ry Items|
|00000d40| 61 6e 65 6c 6f 6c 64 65 | 72 34 34 32 20 32 31 31 |anelolde|r442 211|
|00000d50| 00 65 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 01 |.eTEXTMP|S ......|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 b4 33 5f 40 00 00 | 0c 01 00 00 01 ac 20 49 |...3_@..|...... I|
|00000d80| 74 20 6c 6f 6f 6b 73 20 | 73 69 6d 70 6c 65 20 65 |t looks |simple e|
|00000d90| 6e 6f 75 67 68 2e 2e 2e | 2a 2f 0d 0d 45 58 54 45 |nough...|*/..EXTE|
|00000da0| 52 4e 5f 41 50 49 28 20 | 4f 53 53 74 61 74 75 73 |RN_API( |OSStatus|
|00000db0| 20 29 0d 4f 54 4f 70 74 | 69 6f 6e 4d 61 6e 61 67 | ).OTOpt|ionManag|
|00000dc0| 65 6d 65 6e 74 09 09 09 | 09 28 45 6e 64 70 6f 69 |ement...|.(Endpoi|
|00000dd0| 6e 74 52 65 66 20 09 09 | 09 72 65 66 2c 0d 09 09 |ntRef ..|.ref,...|
|00000de0| 09 09 09 09 09 09 20 54 | 4f 70 74 4d 67 6d 74 20 |...... T|OptMgmt |
|00000df0| 2a 09 09 09 09 72 65 71 | 2c 0d 09 09 09 09 09 09 |*....req|,.......|
|00000e00| 00 00 00 36 06 60 80 00 | 00 00 03 36 2e 36 2b 36 |...6.`..|...6.6+6|
|00000e10| 2e 36 2c 20 43 6f 70 79 | 72 69 67 68 74 20 41 70 |.6, Copy|right Ap|
|00000e20| 70 6c 65 20 43 6f 6d 70 | 75 74 65 72 2c 20 49 6e |ple Comp|uter, In|
|00000e30| 63 2e 20 31 39 38 31 2d | 39 39 00 00 00 28 02 06 |c. 1981-|99...(..|
|00000e40| 60 80 00 06 45 63 68 6f | 2e 70 00 00 00 00 00 00 |`...Echo|.p......|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 01 00 00 00 01 66 00 00 |........|.....f..|
|00000e70| 00 66 00 00 00 46 0d 59 | cb 20 17 24 00 00 00 1c |.f...F.Y|. .$....|
|00000e80| 00 46 00 01 76 65 72 73 | 00 00 00 12 66 74 61 67 |.F..vers|....ftag|
|00000e90| 00 00 00 1e 00 01 ff ff | 20 00 00 00 00 00 00 00 |........| .......|
|00000ea0| 00 00 ff ff 00 00 00 3a | 0d 59 cb a0 00 00 00 00 |.......:|.Y......|
|00000eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+